2 REM"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201  ALEXANDRA, NEW ZEALAND[141]
7 [151]53280,9:[151]53281,9
8 [151]56,127:[151]56576,149:[151]53272,4:[151]648,128:[151]792,116:[151]793,164:[156]
9 [134]J(15):J(14)[178]8:J(6)[178]9:J(7)[178]6:J(5)[178]3:J(13)[178]2:J(9)[178]1:J(11)[178]4:J(10)[178]7:CL[178]22528
10 [134]D(3),G(73),P(8),N(8),S(4),T(2)
11 [153]"LOADRETURNSYS USR(null)(null)USRABS  INTABSUSRUSR     SGN  + (null)USR(null) SGN  SGN ABSUSRUSR (null)  (null)
12 PRINT"  [170][180] [182][192][192][181][182][192]      [205]  [206] [204][175][186] [180]  [180] [182][192]   [205][206]
13 [153]"  +SGN ABS  INTABSANDAND      (null)(null)  SGN + (null)AND (null)ANDABSANDAND  THENFN
14 PRINT"[129]FIND TREASURE AND BATTLE MONSTERS IN THE
15 [153]"VALLEY.  AS YOUR CHARACTER GAINS
16 PRINT"EXPERIENCE, HE BECOMES STRONGER AND MORE
17 [153]"CAPABLE.
18 PRINT"[158]USE THE JOYSTICK (PORT 2) TO MOVE.
28 [134]M$(18),MS(18),N1(18)
30 VG$[178]"":GC$[178]"":F$[178]"":DL$[178]""
40 TS[178]0:TN[178]0:TM[178]3:CF[178]0
50 D$[178]""
60 D1$[178][200](D$,17)
70 SP$[178]"                                       "
80 R$[178]""
90 R1$[178][200](R$,21)
100 [129]I[178]1[164]32
110 [135]C$
120 [130]I
130 [129]I[178]0[164]18
140 [135]M$(I):[135]MS(I):[135]N1(I)
150 [130]I
160 [153]"FORDO YOU WISH TO RESTORE A PREVIOUSLY     SAVED CHARACTER (Y/N) ?";
170 VG$[178]"YN":[141]610
180 [133]"LOADCHARACTER'S NAME *CMDCMDCMD";J$
190 [139]J$[178]"*"[167]180
200 [139][195](J$)[177]16[167][153]"TOO LONG":[137]180
210 [139]GC$[178]"N"[167]400
220 [153]"LOADSYSPLACE DATA TAPE IN THE TAPE DECK."
230 [153]"FORREWIND TAPE IF REQUIRED.
240 GOSUB660
250 OPEN1,1,0,J$
260 INPUT#1,P$
270 INPUT#1,TS
280 INPUT#1,EX
290 INPUT#1,TN
300 INPUT#1,CS
310 INPUT#1,PS
320 INPUT#1,T(0)
330 INPUT#1,T(1)
340 INPUT#1,T(2)
350 INPUT#1,C1
360 INPUT#1,P1
370 CLOSE1
380 C=150
390 GOTO550
400 PRINT"[155][147]CHARACTER TYPES...CHOOSE CAREFULLY"
410 PRINT"[129]WIZARD    (1)"
420 PRINT"THINKER   (2)"
430 PRINT"BARBARIAN (3)"
440 PRINT"WARRIOR   (4)"
450 PRINT"CLERIC    (5)"
460 GETGC$:IFGC$=""THEN460
470 A=VAL(GC$)
480 IFA=1THENP$="WIZARD":P1=2:C1=0.5:CS=22:PS=28
490 IFA=2THENP$="THINKER":P1=1.5:C1=0.75:CS=24:PS=26
500 IFA=3THENP$="BARBARIAN":P1=0.5:C1=2:CS=28:PS=22
510 IFA=4THENP$="WARRIOR":P1=1:C1=1.25:CS=26:PS=24
520 IFA=5THENP$="CLERIC":P1=1.25:C1=1:CS=25:PS=25
530 IFA<1ORA>5THENP$="DOLT":P1=1:C1=1:CS=20:PS=20
540 EX=1:C=150
550 PRINT"GOOD LUCK[129]"
560 PRINT"";J$" THE ";P$
570 DF=150:DL$="D":GOSUB4540
580 GOSUB3290
590 DF=5:GOSUB4540
600 GOTO780
610 GETGC$:IFGC$=""THEN610
620 FORI=1TOLEN(VG$)
630 IFMID$(VG$,I,1)=GC$THENRETURN
640 NEXTI
650 GOTO610
660 PRINT"[155]PRESS RETURN[155] TO CONTINUE[129]
670 [161]GC$:[139]GC$[178]""[167]670
680 [142]
690 [129]I[178]1[164]10:[161]GC$:[130]I
700 TV[178]0
710 [129]I[178]1[164]300
720 [161]GC$:[139]GC$[178]""[167]740
730 [137]760
740 [130]I
750 TV[178]1
760 [153] D$;SP$
770 [142]
780 M[178]W:PK[178][194](W):[151]M,81:[151]M[170]CL,1
790 C[178]C[170]3[170]FL
800 [139]PK[178]77[176]PK[178]78[167]820
810 [153] D$;"YOUR MOVE...WHICH DIRECTION ?":[137]830
820 [153] D$;"SAFE ON THE PATH...WHICH WAY ?"
830 [129]I[178]1[164]10:[161]GC$:[130]I
840 I[178]J([194](56320)[175]15)
850 A[178]I:[139]A[178]0[167]840
860 [139]A[177]3[167]A[178]A[171]3:[137]860
870 W[178]M[170]A[171]2[171]40[172]([181]((I[171]1)[173]3)[171]1)
880 TN[178]TN[170]1:[153] D$;SP$
890 Q[178]81:Q1[178][194](W):[139]Q1[178]32[176]Q1[178]45[167]970
900 [139]Q1[178]219[167]4870
910 [139]Q1[178]214[176]Q1[178]160[176]Q1[178]88[167]TN[178]TN[171]1:[137]810
920 [139]Q1[178]216[176]Q1[178]87[176]Q1[178]173[176]Q1[178]230[167]3040
930 [139]Q1[178]104[176]Q1[178]96[167]3130
940 [139]Q1[178]102[167]4430
950 [139]Q1[178]224[176](GC$[178]"5"[175]PK[178]224)[167]Q[178]81:C[178]C[171]20:[139]C[179][178]0[167]5240
960 [139]Q1[178]42[167]1230
970 [151]M,PK:[151]M[170]CL,8:PK[178][194](W):M[178]W:[151]M,Q:[151]M[170]CL,1
980 [139]PK[178]77[176]PK[178]78[167]DF[178]5:[137]1040
990 [139]PK[178]45[167]DF[178]5:[137]1040
1000 RF[178][187](TI)
1010 [139]RF[179].1[167]1390
1020 [139]RF[177].8[167]1060
1030 [153] D$;"NOTHING OF VALUE...SEARCH ON":DF[178]80
1040 [141]4540
1050 [137]790
1060 RF[178][181]([187](TI)[172]5[170]1):EX[178]EX[170]1
1070 [145]RF[141]1100,1140,1140,1170,1200
1080 DF[178]80:[141]4540
1090 [137]790
1100 [153] D$;"A CIRCLE OF EVIL...DEPART IN HASTE !"
1110 PS[178]PS[171]FL:C[178][181](C[172].6)
1120 [139]C[179][178]0[167]5240
1130 [142]
1140 [153] D$;"A HOARD OF GOLD"
1150 TS[178]TS[170][181](FL[172][187](TI)[172]100[170]100)
1160 [142]
1170 [153] D$"YOU FEEL THE AURA OF THE DEEP MAGIC..."
1180 [153]"        ...ALL AROUND YOU..."
1190 [137]1210
1200 [153] D$;"...A PLACE OF ANCIENT POWER..."
1210 PS[178]PS[170]2[170][181](FL[172]P1):CS[178]CS[170][181](FL[172]C1):C[178]C[170]25
1220 [142]
1230 [151]M,32:M[178]W:PK[178]32:[151]M,81
1240 RN[178][187](TI):[153] D$;SP$
1250 [139]S[178]6[175]RN[177]0.95[175]T(1)[178]6[175]T(2)[178]0[175]RT[177]25[167]T(2)[178]1:[137]1300
1260 [139]S[178]5[175]RN[177]0.85[175]T(0)[178]0[167]T(0)[178]1:[137]1310
1270 [139]S[178]4[175]RN[177]0.7[175]T(0)[178]1[175]T(1)[179]6[175]FL[177]T(1)[167]1320
1280 [139]RN[177]0.43[167][153] D$;"A WORTHLESS BAUBLE":[137]1370
1290 [153] D$;"A PRECIOUS STONE !":[137]1360
1300 [153] D$;"YOU FIND THE HELM OF EVANNA !":[137]1360
1310 [153] D$;"THE AMULET OF ALARIAN...EMPTY...":[137]1360
1320 [153] D$;"AN AMULET STONE...":[153]
1330 DF[178]60:DL$[178]"D":[141]4540
1340 [139]RN[177]0.85[167][153]"...BUT THE WRONG ONE !":[137]1370
1350 [153]"...THE STONE FITS !":T(1)[178]T(1)[170]1
1360 TS[178]TS[170]100[172](T(0)[170]T(1)[170]T(2)[170]FL)
1370 DF[178]80:[141]4540
1380 [137]790
1390 [153] D$;"**BEWARE...THOU HAST ENCOUNTED**SYS"
1400 MS[178]0:N[178]0:CF[178]1
1410 RF[178][181]([187](TI)[172]17):[139]RF[177]9[175][187](TI)[177]0.85[167]1410
1420 [139]Q1[178]224[176]PK[178]224[167]RF[178][181]([187](TI)[172]2[170]17)
1430 [139]RF[178]16[175][187](TI)[179]0.7[167]1410
1440 [139]FL[179]5[175]RF[178]15[167]1410
1450 X$[178][200](M$(RF),1)
1460 [129]I[178]1[164][195](F$)
1470 [139][202](F$,I,1)[178]X$[167]1500
1480 [130]I
1490 [137]1410
1500 M$[178][201](M$(RF),[195](M$(RF))[171]1)
1510 [139]MS(RF)[178]0[167]1540
1520 MS[178][181]((CS[172]0.3)[170]MS(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
1530 [139]N1(RF)[178]0[167]1550
1540 N[178][181](N1(RF)[172]FL[174]0.2[173]([187](TI)[170]1))
1550 U[178][181]((RF[170]5)[172](FL[174]1.5))
1560 [139] RF[177]23[167]U[178][181]((RF[171]22)[172]FL[174]1.5)
1570 [153]"";[200](R$,12[171]([195](M$))[173]2);"AN EVIL ";M$
1580 DF[178]40:[141]4540
1590 C[178]C[171]1:[139][187](TI)[179]0.6[167]2000
1600 [153]D$;" FORYOU HAVE SUPRISE...LISTAFORTTACK OR LISTRFORETREATLIST"
1610 [141]690
1620 [139]GC$[178]"R"[167]1980
1630 [139]TV[178]1[167]1690
1640 [139]GC$[179][177]"A"[167]2000
1650 DF[178]30:DL$[178]"D":[141]4540
1660 [153]D$;"FORCAST LISTSFORPELL OR STRIKE LISTHFOREAD LISTBFORODY LISTLFOREGS ?LIST
1670 GOSUB690
1680 IFTV=0THEN1710
1690 PRINTD$;"[158]* TOO SLOW...TOO SLOW *[129]"
1700 HF=0:GOTO1910
1710 E=39*LOG(EX)/3.14
1720 IFGC$="S"THEN2420
1730 IFMS=0THENPRINTD$;" YOUR SWORD AVAILS YOU NOUGHT HERE":GOTO1910
1740 IFC<=0THENPRINTD$;" YOU FATALLY EXHAUST YOURSELF":GOTO5240
1750 RF=RND(TI)*10
1760 IFGC$="H"AND(RF<5ORCS>MS*4)THENZ=2:GOTO1810
1770 IFGC$="B"AND(RF<7ORCS>MS*4)THENZ=1:GOTO1810
1780 IFGC$="L"AND(RF<9ORCS>MS*4)THENZ=0.3:GOTO1810
1790 PRINTD$;" YOU MISSED IT!"
1800 HF=0:GOTO1910
1810 IFHF=1THEND=MS+INT(RND(TI)*9):HF=0:GOTO1840
1820 D=INT((((CS*50*RND(TI))-(10*MS)+E)/100)*Z):IFD<0THEND=0
1830 IFCS>(MS-D)*4THENHF=1
1840 MS=MS-D
1850 PRINTD$;"A HIT..."
1860 DF=60:DL$="D":GOSUB4540
1870 IFD=0THENPRINTD$;"BUT...NO DAMAGE":HF=0:GOTO1910
1880 PRINTD$;"";D;" DAMAGE...":IFMS<=0THEN1940
1890 IFHF=1THENDF=30:DL$="D":GOSUB4540
1900 IFHF=1THENPRINT"THE ";M$;" STAGGERS DEFEATED"
1910 DF=110:GOSUB4540
1920 IFHF=1THEN1660
1930 GOTO2000
1940 PRINTD$;"...KILLING THE MONSTER..."
1950 EX=EX+U:HF=0:CF=0
1960 DF=80:GOSUB4540
1970 GOTO790
1980 PRINTD$;"KNAVISH COWARD!":CF=0
1990 GOTO1960
2000 PRINTD$;"THE CREATURE ATTACKS..."
2010 DF=50:DL$="W":GOSUB4540
2020 IFMS=0THEN2300
2030 IFMS<NANDN>6ANDRND(TI)<0.5THEN2300
2040 MS=MS-1:IFMS<=0THEN2240
2050 RF=INT(RND(TI)*10+1)
2060 ONRFGOTO2070,2080,2090,2100,2110,2110,2120,2120,2130,2140
2070 PRINTD$;"IT SWINGS AT YOU...AND MISSES":GOTO2280
2080 PRINTD$;"YOUR BLADE DEFLECTS THE BLOW":GOTO2280
2090 PRINTD$;"...BUT HESITATES, UNSURE...":GOTO2280
2100 Z=3:PRINTD$;"IT STRIKES YOUR HEAD!":GOTO2150
2110 Z=1.5:PRINTD$;"YOUR CHEST IS STRUCK!":GOTO2150
2120 Z=1:PRINTD$;"A STRIKE TO YOUR SWORDARM!":GOTO2150
2130 Z=1.3:PRINTD$;"A BLOW TO YOUR BODY!":GOTO2150
2140 Z=0.5:PRINTD$;"IT CATCHES YOUR LEGS!"
2150 DF=60:DL$="D":GOSUB4540
2160 G=INT((((MS*85*RND(TI))-(9*CS)+E)/100)*Z)
2170 IFG<0THENG=0:PRINTD$;"...SAVED BY YOUR ARMOUR!  ":GOTO2280
2180 C=C-G
2190 CS=CS-INT(G/6)
2200 IFG=0THENPRINTD$;"SHAKEN......BUT NO DAMAGE DONE":GOTO2280
2210 PRINTD$;"YOU TAKE...      [157][157][157][157][157][157]";G;" DAMAGE...      "
2220 IFCS<=0ORC<=0THEN5240
2230 GOTO2280
2240 PRINTD$;"...USING ITS LAST ENERGY IN THE ATTEMPT"
2250 EX=INT(EX+U/2):CF=0
2260 DF=100:GOSUB4540
2270 GOTO790
2280 DF=100:GOSUB4540
2290 GOTO1660
2300 PRINTD$;"...HURLING A LIGHTENING BOLT AT YOU!"
2310 G=INT(((180*N*RND(TI))-(PS+E))/100):N=N-5:IFG>9THENN=N-INT(G/5)
2320 DF=80:DL$="W":GOSUB4540
2330 IFN<=0THENN=0:GOTO2240
2340 IFRND(TI)<0.25THEN2410
2350 IFG<0THENG=0:GOTO2400
2360 PRINTD$;"IT STRIKES HOME!"
2370 DF=110:GOSUB4540
2380 C=C-G:PS=INT(PS-G/4)
2390 GOTO2210
2400 PRINTD$;"YOUR PSI SHIELD PROTECTS YOU":GOTO2280
2410 PRINTD$;"...MISSED YOU!":GOTO2280
2420 PRINTD$;"WHICH SPELL (1, 2 OR 3) ?":GOSUB690
2430 IFTV=1THEN1690
2440 IFVAL(GC$)>0ANDVAL(GC$)=<3THEN2460
2450 PRINTD$;"NO SUCH SPELL...     ":GOTO2560
2460 IF4*PS*RND(TI)<=NTHEN2510
2470 ONVAL(GC$)GOSUB2600,2710,2850
2480 ONSCGOTO2540,2560,2580,2490,2520,2500,2510
2490 PRINTD$;"IT IS BEYOND YOU     ":GOTO2560
2500 PRINT"BUT THE SPELL FAILS...!":GOTO2560
2510 PRINTD$;"NO USE, THE BEAST'S PSI SHEILDS IT":GOTO2560
2520 PRINTD$;"THE SPELL SAPS ALL YOUR STRENGTH"
2530 GOTO5240
2540 DF=100:GOSUB4540
2550 GOTO790
2560 DF=120:GOSUB4540
2570 GOTO2000
2580 DF=60:GOSUB4540
2590 GOTO1660
2600 C=C-5:IFC<=0THENSC=5:RETURN
2610 PRINTD$;"[150]...SLEEP FOUL FIEND THAT I MAY ESCAPE"
2620 PRINT"AND PRESERVE MY MISERABLE SKIN...[129]"
2630 DF=180:GOSUB4540
2640 PRINTD$;"THE CREATURE STAGGERS..."
2650 DF=60:DL$="D":GOSUB4540
2660 IFRND(TI)<0.5THEN2690
2670 PRINT"AND COLLAPSES...STUNNED"
2680 EX=INT(EX+U/2):CF=0:SC=1:RETURN
2690 PRINT"BUT RECOVERS WITH A SNARL!"
2700 SC=2:RETURN
2710 IFMS>CORPS<49OREX<1000THENSC=4:RETURN
2720 C=C-10:IFC<0THENSC=5:RETURN
2730 IFN=0THENPRINTD$;"THIS BEAST HAS NO PSI TO ATTACK":SC=2:RETURN
2740 PRINTD$;"[150]WITH MY MIND I BATTLE THE FOR MY LIFE[129]
2750 DF[178]120:[141]4540
2760 RF[178][187](TI):[139]RF[179]0.4[175]N[177]10[167]SC[178]6:[142]
2770 D[178][181]((((CS[172]50[172]RF)[171]5[172](MS[170]N)[170]E)[173]50)[173]4)
2780 [139]D[179][178]0[167]D[178]0:SC[178]7:[142]
2790 [153]D$;"THE PSI-LANCE CAUSES ";D[172]2;" DAMAGE"
2800 N[178]N[171]3[172]D:[139]N[179][178]0[167]N[178]0
2810 MS[178]MS[171]D:[139]MS[179][178]0[167]MS[178]0
2820 [139](MS[170]N)[177]0[167]SC[178]2:[142]
2830 [153]"...KILLING THE CREATURE"
2840 EX[178]EX[170]U:CF[178]0:SC[178]1:[142]
2850 [139]PS[179]77[176]EX[179]5000[167]SC[178]4:[142]
2860 C[178]C[171]20:[139]C[179][178]0[167]SC[178]5:[142]
2870 [153]D$;"DEFWITH THE MIGHT OF MY SWORD I SMITE THEE"
2880 [153]"WITH THE POWER OF MY SPELL I CURSE THEE"
2890 [153]"BURN YE SPAWN OF HELL AND SUFFER...FOR"
2900 DF[178]240:[141]4540
2910 [153]D$;"A BOLT OF ENERGY LASHES AT THE BEAST..."
2920 DF[178]80:DL$[178]"W":[141]4540
2930 [139][187](TI)[177](PS[173]780)[172](5[171]P1)[167][153]D$;"MISSED IT!":SC[178]2:[142]
2940 D[178][181]((CS[170]PS[172][187](TI))[171](10[172]N[172][187](TI)))
2950 [139]D[179][178]0[167]D[178]0:SC[178]7:[142]
2960 [139]MS[178]0[167]N[178]N[171]D:[137]2980
2970 MS[178]MS[171]D:[139]D[177]10[167]N[178][181](N[171](D[173]3))
2980 [153]D$;"IT STRIKES HOME CAUSING ";D;" DAMAGE  !"
2990 [139](MS[170]N)[179][178]0[167]3020
3000 DF[178]80:DL$[178]"D":[141] 4540
3010 SC[178]2:[142]
3020 [153]"THE BEAST DIES SCREAMING !"
3030 EX[178]EX[170]U:CF[178]0:SC[178]1:[142]
3040 [139]Q1[178]230[175]PK[178]160[167][153]D$;"YOU CANNOT ENTER THIS WAY...D":[137]3150
3050 [129]I[178]2[164]7
3060 P(I)[178]0
3070 N(I)[178][181]([187](TI)[172]5[170]4)
3080 [139]N(I)[178]5[167]3070
3090 [130]I
3100 [139]S[178]1[167]MP[178]M
3110 P(2)[178][181]([187](TI)[172]30[170]1)
3120 TF[178]TN:[137]3170
3130 [139]TN[177]TF[170][181]([187](TI)[172]6[170]1)[167]3170
3140 [153]D$;"THE WAY IS BARRED"
3150 TN[178]TN[171]1:C[178]C[171]10:DF[178]100:DL$[178]"W":[141]4540
3160 [137]790
3170 C[178]C[171]10:[151]M,32:[151]W,Q
3180 [139]Q1[178]96[167]S[178]1:FL[178]1
3190 [139]Q1[178]104[175]S[178]4[167]S[178]1:FL[178]1
3200 [139]Q1[178]104[175]S[178]5[176]S[178]6[167]S[178]S[171]3:FL[178]FL[171]4:M[178]MW
3210 [139]Q1[178]173[167]S[178]2:FL[178]2
3220 [139]Q1[178]216[167]S[178]3:FL[178]3
3230 [139]Q1[178]216[176]Q1[178]173[167]D2$[178][200](D$,[181]([187](TI)[172]10)):R2$[178][200](R$,P(2))
3240 [139]Q1[178]87[167]S[178]4:FL[178]2
3250 [139]Q1[178]230[167]S[178]S[170]3:FL[178]FL[170]4:MW[178]M
3260 [145]S[141]3290,3620,3630,3850,3860,3860
3270 DF[178]5:[141]4540
3280 [137]780
3290 [153]"LOAD":F$[178]"VAEGH":FL[178]1:S[178]1
3300 [153]"SYS(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT"
3310 [129]I[178]1[164]12
3320 [153]"(null)WAITFOR                                     SYS(null)WAIT"
3330 [130]I
3340 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT"
3350 [139]G(0)[179][177]0[167]3480
3360 M[178]32809[170]([181]([187](TI)[172]11[170]1)[172]40)
3370 L[178]M:MP[178]M:W[178]M:G(0)[178]M:G(1)[178]219
3380 [129]I[178]2[164]72[169]2
3390 [139][187](TI)[177]0.5[167]3410
3400 PC[178]77:L1[178]L[170]41:[137]3420
3410 PC[178]78:L1[178]L[171]39
3420 [139]L1[177][178]33286[176]L1[179][178]32806[167]3390
3430 G(I[170]1)[178]PC
3440 [139]I[177]2[175]G(I[170]1)[179][177]G(I[171]1)[167]L1[178]L[170]1
3450 G(I)[178]L1:L[178]L1:[151]G(I),G(I[170]1)
3460 [130]I
3470 G(73)[178]219
3480 [129]I[178]0[164]72[169]2
3490 [151]G(I),G(I[170]1)
3500 [130]I
3510 [139]S(0)[179][177]0[167]3570
3520 [129]I[178]1[164]4
3530 N1[178][181]([187](TI)[172]11)[170]1:N2[178][181]([187](TI)[172]34)[170]1
3540 S(I)[178]32809[170](40[172]N1)[170]N2
3550 [139][194](S(I))[179][177]32[176][194](S(I)[170]1)[179][177]32[167]3530
3560 [130]I
3570 [151]S(0),216:[151]S(0)[170]1,216:[151]S(1),216:[151]S(1)[170]1,216
3580 [151]S(2),173:[151]S(2)[170]1,173:[151]S(3),173:[151]S(3)[170]1,173
3590 [151]S(4),87
3600 M[178]MP:W[178]M
3610 [142]
3620 F$[178]"AFL":PC[178]45:[137]3640
3630 F$[178]"FAEHL":PC[178]88
3640 PK[178]32
3650 [151]53281,8:[153]"LOADFOR":[151]53281,9
3660 L[178]32810
3670 [129]I[178]1[164]200
3680 [151]L[170][181]([187](TI)[172]515),PC
3690 [130]I
3700 [153]"";D2$;R2$;"CLOSECLOSEWAIT"
3710 [153]R2$;"CLOSECLOSECLOSECLOSECLOSEWAIT"
3720 [153]R2$;"CLOSECLOSEWAIT  CLOSECLOSEWAIT"
3730 [153]R2$;"CLOSECLOSESPC(WAIT CLOSECLOSECLOSEWAIT"
3740 [153]R2$;"CLOSECLOSECLOSECLOSECLOSECLOSEWAIT"
3750 [153]R2$;"CLOSECLOSEWAIT"
3760 [153]R2$;"CLOSEWAIT"
3770 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE";
3780 [129]I[178]1[164]13
3790 [153]"CLOSECLOSE";
3800 [130]I
3810 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
3820 [151]33306,32:W[178]33306
3830 [139]Q1[178]104[167]M[178]MW:W[178]M:[153]"";D2$;R2$;" "
3840 [142]
3850 F$[178]"CAGE":P[178]0:H[178]N(FL):PK[178]32:[137]3870
3860 F$[178]"CBE":P[178]0:H[178]N(FL):PK[178]32:P(FL)[178]P(2)
3870 [153]"LOADFOR                     WAIT"
3880 [129]I[178]1[164]13
3890 [153]" WAIT                    WAIT"
3900 [130]I
3910 [153]"                     WAIT"
3920 [140]:[129]I[178]1[164]P(FL)
3930 [135]V:[139]V[178]100[167][140]
3940 [130]I
3950 L1[178]32810
3960 [129]J[178]1[164]3
3970 [135]D(J):P[178]P[170]1
3980 [139]D(J)[178]100[167][140]:D(J)[178]3:P[178]P[170]1
3990 [130]J
4000 [129]I[178]0[164]H:PC[178]160
4010 L[178]L1[170](40[172]I):[139]L[177]33290[167]4110
4020 [139]I[178]1[167]PC[178]32
4030 [139]D(1)[178]0[167]PC[178]160:[137]4050
4040 [151]L[170]D(1),PC:PC[178]160
4050 [139]I[178]3[167]PC[178]32
4060 [151]L[170]D(1)[170]D(2),PC:PC[178]160
4070 [139]I[178]4[167]PC[178]32
4080 [151]L[170]D(1)[170]D(2)[170]D(3),PC:PC[178]160
4090 [130]I
4100 L1[178]L1[170](40[172]H)[170]40:[137]3960
4110 L1[178]32810
4120 [129]J[178]1[164]4
4130 L[178]L1[170](40[172]J[172](H[170]1))
4140 [129]K[178]1[164]19
4150 [139]L[177]33250[167]4200
4160 [151]L[170]K,PC
4170 [139]K[178]2[176]K[178]3[172]H[176]K[178]17[167][151]L[170]K,32:[151]L[170]K[171]40,32:[151]L[170]K[170]40,32
4180 [130]K
4190 [130]J
4200 [139]S[178]5[176]S[178]6[167]4230
4210 [139]FL[173]2[178][181](FL[173]2)[167][151]33219,102:[137]4230
4220 [151]32829,102
4230 [139]FL[178]2[176]S[178]5[176]S[178]6[167][151]33336,104:[151]33296,32
4240 [139]P(3)[178]0[167]W[178]33296
4250 [139]S[178]5[167]4320
4260 [139]S[178]6[167]4300
4270 [153]"";R1$;"THE BLACK TOWER"
4280 [153]R1$;"   OF ZAEXON"
4290 [153]R1$;"   FLOOR ";FL[171]1:[137]4340
4300 [153]"";R1$;" VOUNIM'S WAIT"
4310 [153]R1$;"   LAIR   WAIT":[137]4350
4320 [153]"";R1$;"THE TEMPLE OFWAIT"
4330 [153]R1$;"  Y'NAGIOTH  WAIT"
4340 P(FL[170]1)[178]P(FL)[170]P
4350 [139]FL[179]4[176][187](TI)[179]0.3[167][142]
4360 [129]I[178]1[164][181]([187](TI)[172]5)[170]2
4370 N1[178][181]([187](TI)[172]19)
4380 N2[178][181]([187](TI)[172]12)
4390 [139][194](32811[170]40[172]N2[170]N1)[179][177]32[167]4370
4400 [151](32811[170]40[172]N2[170]N1),42
4410 [130]I
4420 [142]
4430 [151]W,81:[151]M,32:[151]W[170]CL,1:[151]M[170]CL,8
4440 [153]D$;"A STAIRWAY...UP OR DOWN ?":TV[178]FL
4450 VG$[178]"UD":[141]610
4460 [139]GC$[178]"U"[167]FL[178]FL[170]1:[137]4480
4470 FL[178]FL[171]1
4480 [139]FL[177]7[176]FL[179]2[167]4510
4490 DF[178]110:DL$[178]"D":[141]4540
4500 [137]3260
4510 [153]D$;"THESE STAIRS ARE BLOCKED "
4520 DF[178]60:DL$[178]"D":[141]4540
4530 FL[178]TV:[137]4440
4540 [129]DL[178]1[164]2[172](DF[172]TM)
4550 [130]DL
4560 [139]DL$[178]"D"[167]DL$[178]"":[142]
4570 [153]D$;SP$
4580 [153]SP$
4590 [153]SP$;
4600 [139]DL$[178]"W"[167]DL$[178]"":[142]
4610 [139]CS[177]77[171][181](2[172]P1[174]2.5)[167]CS[178]77[171][181](2[172]P1[174]2.5)
4620 [139]PS[179]7[167]PS[178]7
4630 [139]PS[177][181](42[172](P1[170]1)[174][188](P1[174]3.7))[170]75[167]PS[178][181](42[172](P1[170]1)[174][188](P1[174]3.7))[170]75
4640 [139]C[177]125[171]([181](P1)[172]12.5)[167]C[178]125[171][181]([181](P1)[172]12.5)
4650 [153]D1$;"LISTON";J$,P$
4660 [153]"FORTREASURE   =";TS
4670 [153]"EXPERIENCE =";EX
4680 [153]"TURNS      =";TN
4690 [153]D1$;R1$;"COMBAT STR =    CMDCMDCMDCMD";CS
4700 [153]R1$;"PSI POWER  =    CMDCMDCMDCMD";PS
4710 [153]R1$;"STAMINA    =    CMDCMDCMDCMD";C"LIST"
4720 [139]CF[178]1[167]4750
4730 [153]SP$
4740 [142]
4750 [153]D$;"ONON";M$;"WAIT";
4760 [153]D$;RI$;"ONONM STR =            CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";MS;N;"    "
4770 [142]
4780 DF[178]5:DL$[178]"W":[141]4540
4790 RT[178][181](.1[172](EX[170]TS[173]3)[174].5[170][188](EX[173]((TN[170]1)[174]1.5))):[139]RT[177]28[167]RT[178]28
4800 [139]RT[179]1[167]RT[178]1
4810 [153]D$;"YOUR RATING NOW BE ";RT
4820 [139]T(2)[178]1[167][153]"YOU HAVE THE HELM OF EVANNA"
4830 [139]T(0)[178]1[167] [153]"AMULET STONES... ";T(1)
4840 DF[178]250:DL$[178]"W":[141]4540
4850 [139]GC$[178]"E"[167]C[178]C[171]10:GC$[178]"":[137]790
4860 [142]
4870 [153]D$;"THOU ART SAFE IN A CASTLE":[139]CS[179]20[167]CS[178]20
4880 [151]M,PK:PK[178][194](W):M[178]W:[151]M,Q
4890 [139]T(2)[178]1[167]DF[178]50:[141]4540:[141]4780
4900 [153]"WILT THOU LEAVE THE VALLEY (Y/N) ?"
4910 VG$[178]"YN":[141]610
4920 DF[178]5:DL$[178]"W":[141]4540
4930 [141]4780
4940 DF[178]110:DL$[178]"W":[141]4540
4950 [139]GC$[178]"Y"[167]5000
4960 C[178]150:[153]D$;"THY WOUNDS HEALED...THY SWORD SHARP"
4970 [153]"GO AS THE GODS DEMAND--TRUST NONE OTHER";
4980 DF[178]480:[141]4540
4990 [137]790
5000 [153]"LOADDO YOU WISH TO SAVE ";J$;" ?"
5010 [153]:[153]"PLEASE KEY Y OR N"
5020 VG$[178]"YN":[141]610
5030 [139]GC$[178]"N"[167]5210
5040 [153]"LOADSYSPLACE DATA TAPE IN THE TAPE DECK."
5050 [153]"FORREWIND TAPE IF REQUIRED.
5060 GOSUB660
5070 OPEN1,1,1,J$
5080 PRINT#1,P$
5090 PRINT#1,TS
5100 PRINT#1,EX
5110 PRINT#1,TN
5120 PRINT#1,CS
5130 PRINT#1,PS
5140 PRINT#1,T(0)
5150 PRINT#1,T(1)
5160 PRINT#1,T(2)
5170 PRINT#1,C1
5180 PRINT#1,P1
5190 CLOSE1
5200 PRINT"[147]","***DONE***"
5210 PRINTD$;"      TYPE RUN TO START AGAIN"
5220 CLR
5230 END
5240 C=0:CS=0:PS=0:CF=0
5250 DF=110:GOSUB4540
5260 IFT(1)=6THEN5310
5270 PRINTD$,"OH WHAT A FRAIL SHELL"
5280 PRINT,"IS THIS THAT WE CALL MAN"
5290 DF=300:DL$="W":GOSUB4540
5300 PRINT"[147]":GOTO5210
5310 T(0)=0:T(1)=0:TS=0:CS=30:C=150:PS=30
5320 PRINTD$;"ALARIAN'S AMULET PROTECTS THY SOUL"
5330 PRINT"  LIVE AGAIN  [146]"
5340 DF=150:GOSUB4540
5350 L=G(0):MP=L:M=W:S=1:GOTO3260
5360 DATA4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100
5370 DATAAWOLFEN,9,0,AHOB-GOBLIN,9,0,AORC,9,0,EFIRE-IMP,7,3,GROCK-TROLL,19,0
5380 DATAEHARPY,10,12,AOGRE,23,0,BBARROW-WIGHT,0,25,HCENTAUR,18,14
5390 DATAEFIRE-GIANT,26,20,VTHUNDER-LIZARD,50,0,CMINOTAUR,35,25,CWRAITH,0,30
5400 DATAFWYVERN,36,12,BDRAGON,50,20,CRING-WRAITH,0,45,ABALROG,50,50
5410 DATALWATER-IMP,15,15,LKRAKEN,50,0